home *** CD-ROM | disk | FTP | other *** search
/ Amiga Developer CD 2.1 / Amiga Developer CD v2.1.iso / CDTV / cdxltools3-11 / Install-ADPXL < prev    next >
Encoding:
Text File  |  1992-03-13  |  1.3 KB  |  65 lines
  1. ; this routine will install the listed loader/saver into the selected directory
  2.  
  3. (set @default-dest
  4.     (askdir
  5.         (prompt "Please select directory you have installed Art Department Professional into.")
  6.         (help
  7.             @askdir-help
  8.         )
  9.         (default "SYS:ADPro")
  10.     )
  11. )
  12.  
  13. (set adprodir (tackon @default-dest "ADPro"))
  14. (if
  15.     (= 0 (exists adprodir))
  16.     (abort "Could not find ADPro in selected directory!")
  17. )
  18.  
  19. (set fulladproversion (getversion (tackon @default-dest "ADPro")))
  20. (set adpromajorversion (/ (getversion (tackon @default-dest "ADPro")) 65536))
  21. (set adprominorversion (- fulladproversion (* adpromajorversion 65536)))
  22.  
  23. (if (< adpromajorversion 2)
  24.     (abort "You must have ADPro V2.1.X or later.")
  25. )
  26.  
  27. (if (< adprominorversion 1)
  28.     (abort "You must have ADPro V2.1.X or later.")
  29. )
  30.  
  31. (copylib
  32.     (prompt "")
  33.     (help "")
  34.     (source ":LIBS/adpro.library")
  35.     (dest "LIBS:")
  36. )
  37.  
  38. (set loaddir (tackon @default-dest ("Loaders2" ftype)))
  39. (set savedir (tackon @default-dest ("Savers2" ftype)))
  40.  
  41. (if
  42.     (= 0 (exists loaddir))
  43.     (abort "Couldn't locate the Loaders2 directory!")
  44. )
  45. (if
  46.     (= 0 (exists savedir))
  47.     (abort "Couldn't locate the Savers2 directory!")
  48. )
  49.  
  50.  
  51. (copyfiles
  52.     (prompt "")
  53.     (help "")
  54.     (source ":Loaders2/CDXL")
  55.     (dest loaddir)
  56. )
  57.  
  58. (copyfiles
  59.     (prompt "")
  60.     (help "")
  61.     (source ":Savers2/CDXL")
  62.     (dest savedir)
  63. )
  64.  
  65.